Sub Text1_Change ()
Grid1.Text = Text1.Text
End Sub

Sub Form_Load ()
For r% = 0 To Grid1.Rows - 1
    Grid1.Row = r%
    For C% = 0 To Grid1.Cols - 1
        Grid1.Col = C%
        Grid1.Text = Chr$(Asc("A") + r% - 1) + Str$(C%)
        Next
    Next
End Sub

Sub Grid1_SelChange ()
Text1.Text = Grid1.Text
RH.Text = Str$(Grid1.RowHeight)
CW.Text = Str$(Grid1.ColWidth)
End Sub

Sub RA_Click (Index As Integer)
Grid1.RowAlignment = Index
End Sub

Sub CA_Click (Index As Integer)
Grid1.ColAlignment = Index
End Sub

Sub CW_Change ()
Grid1.ColWidth = Val(CW.Text)
End Sub

Sub RH_Change ()
Grid1.RowHeight = Val(RH.Text)
End Sub